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At last! Our database of the usergroup 
public doiain library is now ready for 
distribution. The database, USCAT (UserSroup 
Catalogue) contains information on 378 archive 
files which take up the first part of USCAT. 
This database, produced with QS3 Profile, vas 
coitenced by Don Berrie, vith lost of the tite 
consuiing data input by Bob Devries, with sote 
assistance froi Rob Hackay (a National QS3 
Usergroup leiber). As for iy own contribution 
to this, I lay be in line for another "SUNNA" 
award, as I can take absolutely no credit at all 
for any part of it. 

Full credit to Bob, however, for his 
tireless efforts in not only cotpiling all the 
necessary inforiation on the archives, but for 
his excellent 'lookup' prograiie. Bob's 
'lookup', written in BasicdS will allow access 
to the Profile data files as well as the KEY 
files and display fortats produced by QS9 
Profile. This allows us to distribute a useable 
database for everyone, tfe could not of course 
distribute copies of 089 Profile as it is 
covered by a "Coiputerware' copyright and 
distributed under licence by Tandy for the CoCo. 
Anyway, thanks to the effort of Don Berrie, Bob 
Devries and Rob Hackay, we can now give all 
•eftbers soie useful infornation to help in the 
selection of library files. 

ye plan to distribute UfiCAT only on disk. 
The usergrouD 'copy' fee of *2 per disk will 
apply to each 'first" request. Future updates 
will NOT attract a further copy charge. We do 
expect that the P.D. library will continue to 
grow and USCAT will be updated to include 
inforiation on new archives. In fact we do 
already have a nusber of files which could be 
added to this library, e.g. Prograaoies by local 
authors, you guys, included in the source 
listings froi this usergroup newsletter. 

To obtain a copy of USCAT:- Please lail a 
FORMATTED disk to Jean-Pierre Jacquet, or Sordon 
Bentzen (Addresses on the Newsletter front 
cover) together with $2 AND return postage. It 
will speed up the return of your disk if you use 
a lailer which is suitable for re-use, and also 
include postage staaps and a self addressed 



label. As it stands at the loient, USCAT, 
together with a packed copy of 'Lookup', will 
fit on a 35 track single sided disk, vith about 
16 free sectors. RUNB and eFX2 will be required 
to use Bob's 'Lookup'. 

Each archive in the library typically 
contains a nutber of files including source 
code, executable todules and doc files. All the 
archives are produced with the AR utility (also 
public dotain) and if you request archives froi 
the database, you will need AR to un-archive the 
files which we send to you. So reieiber to 
request a copy of AR if you do not have it. 

This is perhaps a good tiie to restate our 
policy on disk copying, tfe will provide copies 
of Public Doiain laterial ONLY. Any prograiie 
covered by copyright will NOT be sent, so please 
do not request copies of such prograiies. 

A copy charge of $2 per disk will apply to any 
5.25 or 3,5 disk foriat. That is, $2 to copy a 
single sided 35 track disk and $2 for any foriat 
up to 8d track double sided, tfe use the CoCo 0S9 
foriat as standard but can handle lost if not 
all other 089 disk foriats. Please specify the 
required 0S9 foriat if NOT CoCo QS9. 

Please send Foriatted disks when requesting P.D. 
files. This not only lakes it a bit easier for 
us, but lost iiportantly, if the disk is 
foriatted in your drive, your drive should read 
the files without any probleis. Please include 
postage staips and self-addressed label for the 
return of your disks. 

The National 0S9 Usergroup is run as a non- 
profit service to users of the 0S9 operating 
systei. The usergroup subscription i%]%M) per 
annul, covers the printing and lailing costs, 
and the odd re-inked printer ribbon etc., while 
the disk copy fee of $2 per disk is designed to 
at least help towards the laintenance costs of 
privately owned equipient. It also lakes us 
feel a little better when spending lany hours 
just copying disks, packing thei and running to 
the post office. 

Cheers, Sordon. 
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A 3asKtf9 Tutorial 
bv Sob Devries 



It appears that lany 0S9 users don't get 
into prograaiing because they don't understand 
the lanuals supplied vith the prograning 
languages. I lust say that ! can understand that 
sote people vould have trouble, especially as 
soie of the concepts are particularly obscure, I 
vill atteipt to reiedy this problei by 
presenting soie prograiie saiples in BasicdS and 
comparing thei, where possible to regular Disk 
Extended Basic (ugh!) prograiies. Here ve go! 

The first problei area, I think, is the 
DIMensioning of ALL variables. Anyone who has 
used RSBasic vill realise that this is not done 
except where a lulti-diiensioned array is used, 
and then only vhen that array has diiensions 
beyond Id. Nov have a look at this stall 6asicd9 
prograue: 

PROCEDURE Nuiber 
FOR i = 32 TO 122 
PRINT i 
NEXT i 

In this exaiple, Basic^S assuies that the 
variable is a REAL, try it and you'll see that 
the prograsie prints 32. 33. 3i. etc. This tells 
us that BasicdS is printing vhat it thinks are 
REAL variables. If you insert a line to 
OIHension the variable i to INTEGER by inserting 
the line: 

DIH i: INTEGER 

Place this line at the beginning of the 
prograue, and run it again, and you vill see 
that the nuibers are nov 32 33 U etc. By the 
vay, you don't type in the vords 'PROCEDURE 
Nuiber', Basic^S does this for you. 

PROCEDURE Character 
FOR i = 32 TO 122 
PRINT CHR$(i}; 
NEXT i 

With this one, I have not DIHensioned any 
variables. The prograue vill still vork, but 
Basicd9 vill round the variable to the nearest 
integer value. Be careful, if you are using a 
calculation to arrive at the value of variable 
i, you lay get unpredictable results if it is 
not diiensioned. 

Next, ve vill look the 0S9 path systei. You 



have probably all seen that vhen a prograue 
needs to open a file, a variable is used, lost 
often called 'path', like this: 

OPEN ipath,'datafile'':READ 

In RSBasic, this vould be vritten like 
this: 

OPEN "I", 11, "datafile" 

In RSBasic, the progratier supplies the 
file nuiber, because it vill be ttie ONLY file 
open at the tiie. In 089, because of its lulti- 
tasking capabilities, the operating systei 
supplies the file nuiber. To this end, the 
variable lust be DIHensioned as an INTEGER. You 
vill get garbage results if you diiension the 
path variable as type BYTE. You vill also notice 
another siiilarity, the vord 'READ' has the saie 
function as 'I' in RSBasic. Path nuibers are, as 
in RSBasic, not only used for opening disk 
files, but also for sending data to the printer, 
and the screen (if that screen is not the 
current screen). Of course, you can't have tape 
files in 0S9, so t-1 is not used at all. As an 
exaiple, here is hov you vould print data to the 
printer: 

PROCEDURE printer 

DIH print path: integer 

OPEN iprint path, VpVyRITE 

PRINT lprint,path, "Hello vorld" 

PRINT lprint_path,"This is your printer.' 

CLOSE lprint_path 

Of course, you don't have to use elaborate 
variable naies the vay I did, it vas only for 
deionstration purposes, 'pr' vould suffice. 

Vith RSBasic, you don't have to open a path 
to the screen, and indeed if you just vant to 
print soiething to the current screen in 
Basic09, as I did in the first exaiples, you 
don't need to do it in BasicdS either. Hovever, 
if you vish to say, create a graphics screen to 
do soie draving, you vill need to open a nev 
screen to do this. Try this little prograue; 

PROCEDURE Prograi 

DIH vpath: INTEGER 

DIH a:STRIN6[1] 

OPEN lvpath,Vv':UPOftTE 

RUN gfx2(vpath,'DySef,7,e,e,8e,24, 0,1,1) 
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RUN qfx2(yDdth/Font",2«»,!) 

RUN qfx2(»path, 'Select") 

PRINT Iwpath, "Hello this is your BasicyS 

graphics screen" 

RUN gfx2(»path. -Line", e,d, 539, 191) 

a=" 

yniLE a=" DO 

RUN inkey(¥path,a) 

ENOyHILE 

RUN gfx2(!, "Select") 

RUN gfx2(»path/0yEnd") 

CLOSE iwpath 

END 

Several nev concepts are presented in this 
little prograaie. First of, in the DIM 
stateaent, 1 have 'DIH a:STRlNG£1]'. This aakes 
'a' a string variable of one character length. 

Next, ve open a path to a nev vindov using 
the 'universal' window descriptor '/w'. This 
descriptor, which I hope you all have in your 
0S9Boot file, allows you to open a screen on the 
next available window. I have used the word 
'UPDATE- there to tell BasiceS that I want to 
both READ and yRITE to the screen. After that, I 
used the cowand 'RUN'. This tells BasicdS that 
1 want to execute a procedure which is not part 
of the current procedure. In this case it is 
'gfx2', which is in the CHDS directory along 
with 'inkey', 'syscalT, and 'RunB*. 6fx2 is a 
graphics interpreter progratae subroutine, which 
is written in lachine code, and has the 
capability to do various graphics coiiands. The 
coaaands are all aentioned in your BasicdS 
aanual . 

The first one I used was 'DWSet' which is 
like GSS's yCREATE coaaand, and sets up the 
window to the type and size we want. Before the 
coaaand word, we tell Basic^S which path nuaber 
to use, as returned by the OPEN coaaand used 
previously. The nuabers used after the 'DySet' 
coaaand are for screen type, x-coordinate of the 
top left character of the screen, then y 
coordinate, then screen width (in characters), 
and screen height, then foreground, background 
and border palette registers to use. 

The next one is Tont'. I used font group 
nuaber 2d* (which it aust all ways be), and font 
nuaber 1. After that I used the 'Select' 
coaaand, which has the saae result as pressing 
the 'CLEAR' key; it displays the screen I just 
created. 



screen. As I aentioned Defore, I need to teil 
3a5icd9 which path to use to print on ly new 
screen, otherwise, it will end up on the wrong 
screen, the BasicyS editor screen for exaaple, 
if I did not include the variable 'wpath'. Also, 
1 can now draw lines, circles, boxes, and so on, 
on the screen. 

Another thing which could be added at this 
point is the use of Overlay yindows. For these, 
1 would use the following code: 

RUN gfx2(wpath,"0ySet",l,ie,ie,2»,]e,l,e) 
PRINT #wpath, "Overlay yindow Opened" 

RUN gfx2(wpath,"0yEnd") 

Place the first three lines after the line 
which draws the line, and the last line after 
the ENDyHlLE line. 

You will notice that to print on the 
overlay window, I used the saae path nuaber as 
before. 0S9 does not need to OPEN a path for 
overlay windows, so no new path nuaber is used. 
You'll see that I used the coaaand 'Line' to 
draw a diagonal line across the screen. 1 gave 
it the X and y coordinates of the start points 
first, then of the end points. Next I used the 
'OySet' coaaand, which created the overlay 
window. The paraaeters for OVSet are; save 
switch (so that the original screen aay be 
restored), x coordinate and y coordinate of top 
left corner, x size, and y size of window, and 
foreground and background palette registers. 
Note: there is an error in the 0S9 aanual on 
page 3-24 in the Vindowing Systea section. It 
says there ...PRNl PRN2 where PRNl is 
background palette register, and PRN2 is 
foreground palette register. This is incorrect, 
and should be the other way around. After 
waiting for a keypress using the inkey routine, 
the overlay window is closed, then the base 
(BasicdS Editor) screen is re-selected, and the 
graphics screen is de-selected, and its path is 
closed. The figure 1 in the 'Select* coaaand 
refers to the STOOUT streaa of flS9. 

You will notice that, in all ay exaaples, I 
have not used line nuabers. These are neither 
necessary, nor desirable. 

In ay next article, I will show how to use 
the TYPE coaaand, and use it to write to a 
database file record using SET and PUT. 



Now, finally, I can print soaething to the 



Regards, Bob Oevries 
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Introduction to th« C Tutortil 

This next article is part one of a series about C prograiiing. It was produced by 
CORDNAOO ENTERPRISES, of Albuquerque, New Mexico, USA, and vas lade available as a 
'Freeware' package for the IBM PC/XT. I tried to get in touch with that coipany, to 
get official peraission to use the laterial, but was unable to do so. However, 
because of its 'Freeware' status, I believe it can be used here. Although it is for 
the IBM PC/XT I felt that such of the laterial covered would be of soie use to Colour 
Coiputer QS3 users, soie of whoi also use IBM PC/XT computers at work or school, 
yhere possible, I will be adding coiients to explain the differences between the C 
compilers on the IBM, and the 0S9 C coipiler by Micro-Vare. The coiplete tutorial, 
including the source code listings, will be added to our PD disk set. ED. 



The prograiiing language C, was originally 
developed by Dennis Ritchie of Bell Laboratories 
and was designed to run on a PDP-11 with a UNIX 
operating systei. Although it was originally 
intended to run under UNIX, there has been a 
great interest in running it under the MS-DOS 
operating systei and specifically on the IBM PC 
and coipatibles. It is an excellent language for 
this environient because of the siipHcity of 
expression, the compactness of the code, and the 
wide range of applicability. 

It is not a good 'beginning' language 
because it is soiewhat cryptic in nature. It 
allows the prograsier a wide range of operations 
froi high level down to a very low level 
approaching the level of assembly language. 
There seeis to be no liiit to the flexibility 
available- One experienced C prograiier aade the 
statement , 'You can prograi anything in C", and 
the stateient is well supported by ly own 
experience with the language. Along with the 
resulting freedoi however, you take on a great 
deal of responsibility because it is very easy 
to write a prograi that destroys itself due to 
the silly little errors that the Pascal coipiler 
will flag and call a fatal error. In C, you are 
very such on your own as you will soon find. 

Since C is not a beginners language, I will 
assuie you are not a beginning prograuer, and I 
will not atteipt to bore you by defining a 
constant and a variable. You will be expected to 
know these basic concepts. You will, however, be 
expected to know nothing of the C prograiiing 
language. I will begin with the lost basic 
concepts of C and take you up to the highest 
level of C prograiiing including the usually 
intiiidating concepts of pointers, structures, 
and dynaiic allocation. To fully understand 
these concepts, it will take a good bit of tiie 
and work on your part because they not 
particularly easy to grasp, but they are very 



powerful tools. Enough said about that, you will 
see their power when we get there, just don't 
allow yourself to worry about thei yet. 

Prograiiing in C is a treiendous asset in 
those areas where you lay want to use Asseibly 
Language but would rather keep it a siiple to 
write and easy to laintain prograi. It has been 
said that a prograi written in C will pay a 
preiiui of a 59 to 1601 increase in runtiie 
because no language is as coipact or fast as 
Assetbly Language. However, the tiie saved in 
coding can be treiendous, laking it the lost 
desirable language for lany prograiiing chores. 
In addition, since lost prograis spend 99 
percent of their operating tiie in only 19 
percent or less of the code, it is possible to 
write a prograi in C, then rewrite a siall 
portion of the code in Asseibly Language and 
approach the execution speed of the saie 
prograi if it were written entirely in Asseibly 
Language. 

Approxiiately 75 percent of all new 
coiiercial prograas introduced for the IBM PC 
have been written in C, and the percentage is 
probably growing. Microsoft recently introduced 
a new Macro Assembler, version i.9, and they 
said that it was written in C. There are 
probably a few routines coded in Asseibly 
Language, but the lajority was written in C. 

Since C was designed essentially by one 
person, and not by a coiiittee, it is a very 
usable language but not too well defined. There 
is no standard for the C language, but the 
Aierican National Standards Association (ANSI) 
is developing a standard for the language at 
which tiie it will follow rigid rules. It is 
interesting to note, however, that even though 
it does not have a standard, the differences 
between iipleientations are very siall. This is 
probably due to the fact that the original 



May 1991 



Page 5 



AUSTRALIAN QS9 NEWSLETTER 



unoffuiai definition «5 so *eil thought out 
and carefully planned that extensions to the 
language are not needed. Pascal, which has a 
rigorouE definition, has aany extensions by 
coipiler writers and every extension is 
different. This leads to a real probles when 
transporting a Pascal prograi froi one coiputep 
to another. 

Even though the C language enjoys a good 
record when prograis are transported froi one 
iipleientation to another, there are differences 
in coipilers as you will find anytiie you try to 
use another coipiier. Host of the differences 
becoae apparent when you use nonstandard 
extensions such as calls to the DOS BIOS, but 
even these differences can be ainiiized by 
careful choice of prograwing leans. 

Your first problei will not be how to 
progras in C, but how to use your particular 
coipiier. Since there are over 2d good coipilers 
available, there is no way I can cover the 
operation of all coipilers. Notes about a few of 
the better known coipilers are given in the 
■COMPILER. DOC" file on the distribution 
diskette. Read the docuientation that caie with 
your coipiier to iearn how to coipile and run a 
prograi. 

One last note about coipilers. I wrote a 
loderately large prograi in C that was coiposed 
of about 12&& lines of source code contained in 
4 separately coipiled files. I was initially 
using a very inexpensive coipiier froi HII 
Software of Richardson, Texas that sells for 
$39.95. This coipiier did everything I ever 
asked it to do and did it well, including 
floating point nuibers. In addition, the coipile 
tiaes were extresely short and there were lany 
extensions to the basic language as defined by 



Kerniqan 'd Ritchie. In snort, the coaoiisr was a 
good iaoieaentation. Later. I switched over to a 
Lattice C ccapiier that seils for $5ee.tftt. It 
took a bit of work because the Lattice coapiler 
did not have as sany extensions as the Mllf 
coapiler. The Lattice coapiler also took 
considerably longer to coipile, probably 2 to 3 
tiaes as long. The big difference in the two 
coipilers was in the execution tiie of the 
prograi which read in a file, did a lot of 
searching in aeiory, and displayed the results 
on the Bonitor. The final MIX prograi took 95 
seconds to coiplete all operations, and the 
Lattice coipiled prograi took only 19 seconds to 
coiplete. I should add that the MIX coipiier has 
a speedup utility that increases the speed by a 
factor of about 3, according to one independent 
review, getting the speed of the MIX prograi in 
the range of the Lattice prograi. (I did not try 
the speedup prograi on this particular file.) 
The MIX coipiier lissed several subtle type 
errors during coipile that were flagged as 
warnings by the Lattice coipiier. Due to the 
nature of that particular prograi, either run- 



tiie would be acceptable and 
coipiier would be acceptable. 



therefore either 



The above paragraph was given only to aid 
you in selecting a coipiier. The Lattice 
coipiier is very difficult to use for an 
inexperienced prograiier, but has very few 
liiitations. The MIX coipiier, on the other 
hand, was very easy to set up and begin using, 
and would be very appropriate for lost 'hobby* 
coiputing. Depending on your application, the 
lost expensive is probably not the best. In this 
case, the MIX coipiier would be great for 
learning the language and for lany applications. 
Consult the C0MPILER.DOC file for notes on other 
coipilers and recoiiendations on what coipiier 
Bay be suitable for your purposes. 



ooooooooooOOOOOOOOOOoooooooooo 



STOP PRE88 



STOP PRESS 



STOP PRESS 



STOP PRESS 



STOP PRESS 



ye have just received Bruce Isted's Ipatch files and docuients for connecting a serial louse (IBM 
style) to the CoCo. They caie to us via the 099 usergrouo in Europe, EUR0S9. The archive will be 
included on disk II of our PO library. 



STOP PRESS 



STOP PRESS 



STOP PRESS 



STOP PRESS 



STOP PRESS 
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DIRL - Directory pathnate lister 
by Bob van der Poel 

Here is another little C utility fron the pen of Bob van der Poel, the author of VED and VPRINT, 
which are used to produce this newsletter. Here's his cowent about it: 

'OIRL will do a recursive directory scan and print out all the path naaes of the directory files 
found. It will also include takdir coBnands along vith sote sizing options. 1 wrote the progrante 
thinking that I would back up all the files on ay HO, create a file with DIRL of all the directories, 
refomat the drive and then sake the directories up front. Anyway, that is the theory... now 1 just 
have to get around to doing it. If you think your grouD can learn fro» this, please feel ffee to 
reprint it.' 

Bob van der Poel 

Thank you Bob, and yes, I think our aeabers could learn ffot the code, and also take good use of 
the prograwe. 

Regards, 
Bob Devries 



ft 



This progra« recursively scans directories and prints a list 
of coipleie pathnaies of all the directories on a device. 

This list can be used in a procfile with aakdir to create all the 
new directories need before a complete restore of a disk. 

Bob van der Poel Software 

PQ Box 3SS PO Box 5? 

Porihiil, ID Wynndel, BC 

tJ5fi S3853 Canada VeB 2Ne 

This progras will need the K'rieder 6869 C library to co«pile. 



t! 

linclude <stdic.h> 
finclude <lcsio,h> 
linclude (direct. h> 

Idetine SJECTQRS i 
Idefine S_ByTES 2 
Idetine SJILES 5 

inl devpath, 
padding=e; 

char devnase[323, 
teapbuf[256], 
currna6e[25b], 
lakeopt, 
siieopt; 



/t path for faw disk reading t/ 

1% padding value ti 

1% naae of root device %l 

IX scratch buffer tl 

It expanded directory nase tf 

IX flag, ]==include aakdir ctds XI 

It flag, ]==include size opts if 



long int dirsize; It tesp storage for file size XI 



sainiarqc.arqv 
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int argc; 
char tarqv[}; 

{ 

register int t, dirpath; 

It parse off root dir and options t/ 

while(— argc){ 

if(targv[argc]=='-'){ 

for(t=l;argv[arqc][t];t++){ 

switch (toupper(argv[argc][t])){ 

case 'fl* : iakeopt++; 
break; 

case 'S': 5i2eopt=SJECT0RS; 
break; 

case 'F': si2eopt=S_FILES; 
break; 

case 'B': 5izeopt=S_ByTES; 
break; 

case 'P'': p3dding=dtoi(iargv[argc][t+!]); 

¥hile(drQv[argc][++t]); /t skip to end of arg Xi 
—t; 

break: 



default: tertinate'/Unknown option"); 



} 

eisef 

if(*currnafte) tersinate CParafieter error") 
else strcpy(currnaie,argv[argc]); 



It it no directory specified use "." tl 

i f ( licurrnase ) strcpy f teapbuf , " / ) ; 
else strcpydespbuf ,currnafie); 

It open the initial directory XI 

if((dirpath=open(teipbuf,REAO+OIR))"-l) 
terfiinate("Can't open root directory"); 

It get the device nase for root tl 

i f ( (_gs_devn (di rpath , teipbuf ) )==-] ) 

terftinate("Can't get device naie"); 
5trhcpy(devnaBe,te»pbuf); 

1% open device in raw ftode for getting FO info tl 
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strcpydeapbuf,"/"); 
strcaKteipbufjdevnaae); 
strcatdeapbuf,"*"); 
i f ( (devpath=open(teBpbuf ,READ) )==-! ) 
ter«inate("Can't open device'); 

/* process the directory tl 

dodir(dirpath,5trend(currnaie)); 



ft ============================================================== 

This is the recursive parser which does all the work. It checks 
each entry in the current directory and sees if that file is 
another directory. If it is, the inforaation is printed and 
the new directory is opened and dodirO is again called. 
*/ 

dodir(path,na*end) 

int path; ft open path of directory %/ 

char tnasend; It end of naie string if 
{ 

register int t; 

long dsize; 

struct di rent dirbuf; 

if(naeend!=currnase) strcpyCnaftend+t,"/"); li add "/" to naae t/ 

l5eek(path, 641,6); ft skip past "." and V." tl 

It do all the entries in this directory tl 

for(:;){ 

t=read(path,&dirbuf,sizeof (dirbuf)); it get entry %/ 
if(t==-1) terainateCError reading directory'); 
if(t==e) break; It end of dir t/ 

if(dirbuf ,dir_naae[63==$) continue; It deleted nase, skip il 

if((isdir-(dirbuf.dir_addr))){ It do if another dir il 
strhcpyinasend, dirbuf. dirnaae); It append this naae il 

ifitakeopt) fputs("sakdir ",stdout); 

f putsicurrnase, stdout) ; 

it(5izeopt){ 

switch (si2eopt){ 

case SJECTORS: d5ize=(dirsize/dxlO*)+l+padding; break; 

case SJILES: dsize=(dirsize/ex2e)+]+padding; break; 

case S_BYTES: dsize=dirsize+p3dding; break 
} 

ltOd(dsize,teapbuf); 
fpulsC -\5tdout); 
fputs(tespb'jf,stdout); 
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fputsC^n'.stdoul); 

if((l=open(currnaae,READ+OIR))==-l) /* process this dir */ 

terainateCCan't open sub-directory'); 
dodi r ( t , strend( currnaie) ) ; 
} 
} 
close(path); 

It ========================================================= 

Check FD for this file. Save the filesize in global variable 
and return dir flag (6==not a directory entry). 
t/ 

isdir(addr) 

long taddr; /% only the first 3 bytes of this are valid 1/ 

{ 

long sect; 

struct fildes fdbuf; 

sect=taddr; /t convert 3 byte sect nuiber t/ 
secti=dxff; /t to a long integer for seek tl 

lseek(devpath,sect,e); It read FO tl 

if((read(devpath,ifdbuf,sizeof(fdbuf)))<l) 
tereinateCError reading FO sector"); 

dirsize=fdbuf .fd_f5ize; /t save size */ 

return fdbuf. fd_att & OIR; It keep only dir bit t/ 
) 

It ============================================ 



Universal exit routine 
if 

teriinatels) 
char ts; 
{ 

fputsC\n\nDirlist, (c) 1990, Bob van der Poel Soft*are\n\stderr}; 
fputs(5,5tderr}; 

fputs("\nUs3qe: dirl (-options) (device naae>\n",stderr); 

fputs(" -B include lakdir coaiands\n",stderr); 

fputs(" -s include dir size in sectorsVn'.stderr); 

fputs(" -f include dir size in files'vn^stderr); 

fputst" -b include dir size in bytes\n",5tderr); 

fputsC -p<nn> padding for s, f or b options\n",stderr); 
exit(errno); 
} 

ft ================================================ 

Convert a long integer to an ascii (deciaal) string 

Returns start of string (s) 

if 
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ltoa(n,5) 

long n; It long integer to convert tl 

char ts; /t buffer for ascii din size of 13 bytes) t/ 

{ 

register char tptr=5; 

char fiag=0; 

if(n<e){ 

n=-n; 

tlag++; 
} 

do{ 

tptrt+=nlie+'e'; 
}while(n/=ie); 

if (flag) tptr++='-'; 

tptr=e; 

return reverseCs); 



ft ============================= 

Reverse a string in place. 

Returns start of string (s) 
if 

reverseis) 
char ts; 

{ 

register char ti,tj,c; 

for(i=5j=5+5trien(5);i<j;){ 

c=ti; 

ti++=t--j; 

tj=c; 
} 
return s; 
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NATIONAL 059 USER GROUP HEHBERS . 

__» 


15 at 04/30/91 « 
ES3END0N 


h/dd/yy 


fttlBROSI 


fi. A. 


172 Ogilvie Street 


VIC 3040 


BESASPflRIS 


Bernard 


6^ Power Street 


NORNAN PARK 


4LD 4170 


BISSELING 


Fred 


PC Box 776 


mm 


NSy 2830 


BROUN 


Rohan 


75 Peibroke Road 


flOOROOLBARK 


VIC 3138 


CALE 


DdVid 


23 Hornsey Road 


FLOREAT PARK 


UA 6314 


CHASE 


Scott 


3 Thoias Street 


BAXTER 


VIC 3911 


COOPER 


L.A. 


225 Elswick Street 


LEICHARDT 


NSV 2040 


COSSAR 


Lin 


12 Rakeiora Grove 


PETONE 


6303 NEV ZEALAND 


OALZELL 


Robbie 


31 Nedland Crescent 


PT.NOARLUNGA STH SA 5167 


DONALDSON 


Andrew 


5 The Glades 


DONCASTER 


Vic 3108 


OONGES 


Geoff 


PO Box 326 


KIPPAX 


ACT 2615 


EASTHAH 


David 


87 Lewis Street 


HARYVILLE 


NSW 2293 


EATON 


Oavid 


2e Gregson Place 


CURTIN 


ACT 2605 


EOVARDS 


Peter 


4« Davison Street 


MITCHAH 


VIC 3132 


EISEHAN 


Fred 


P0eox228 f reepost 12 CANNON HILL 


«Id 4170 


ESKILOSEN 


Ole 


PO Box 496 


POflT HORESBY 


PAPUA NEV GUINEA 


EVANS 


John 


8e Osburn Drive 


HACfiREGffit 


ACT 2615 


FRANCIS 


V.George 


31 Donald Street 


ttORVELL 


VIC 3840 


FRITZ 


Tfirry 


H/S 546 


FOREST HILL 


m 4342 


NARBECKE 


Peter 


18 Machenzie Street 


HANLY VEST 


«LD 4179 


HARRIS 


Hichael 


P0Box2S 


BELHORE 


NSV 2192 


HARRY 


Peter 


13/51 Union Street 


UINOSOfi 


Vic 3181 


HARTHANN 


Alex 


PO Box 1874 


Southport 


qld 4215 


HUGHES 


Peter 


54 Princeton Street 


KENHORE 


OLD 4069 


HUTCHINSON 


Siion 


le Ascot Court 


NTH DANDENONG 


VIC 3175 


IKIN 


John 


15 Seston Street 


RESERVOIR 


Vic 3073 


KINZEL 


Burghard 


Leipziger Ring 22A 


5042 ERFTSTADT 


GERMANY 


HACKAY 


Rob 


7 Harburg drive 


BEENLEI6H 


QLD 4207 


HacKENZIE 


Greg 


3i6 Cook Road 


IfflAS CERBERUS 


Vic 3920 VESTERN PORT 


HARENTES 


Nickoias 


61 Cretin Street 


UPPER HT.GRAVAn «LD 4122 


HARTIN 


Ted 


PO Box 56 


ROSNY PARK 


TAS 7018 


HcGIVERN 


JiB 


39 Bank Street 


HEADOVBANK 


NSV 2114 


HcLINTOCK 


George 


7 Logan Street 


NARRABUNOAH 


ACT 2604 


NcHASTEfi 


Brad 


PO Box 1150 


CROVS NEST 


NSV 2065 


HORTDN 


David 


c/o PO Box 195 


CONOOBOLIN 


NSV 2877 


ttUNRO 


Ron 


45 Sunnyside Cres. 


NORTH RICHMOND 


NSV 2754 


PATRICK 


Wayne 


12 O'Connell Street 


GYHPIE 


«LD 4570 


PEARCE 


y. Leigh 


47 Allenby Avenue 


fSSERVOIR 


VIC 3073 


PETERSEN 


Barry 


4 Dargo Place 


ALGESTER 


QLD 4115 


PETERSEN 


Hark 


2 Shepherdson Street CAPALABA 


QLD 4157 


PRIHAVERA 


Caiillo 


29 Richard Street 


MARYBOROUGH 


QLD 4650 i 


SINGER 


Haurice 


217 Preston Road 


UYNNUM l^ST 


OLD 4178 


SKEBE 


Jeff 


23 Nona Road 


PALM BEACH 


NSV 2108 


STEPHEN 


Val 


1 Habel Street 


CAMBERVELL 


VIC 3124 


SyiNSCOE 


Robin 


17 Melaleuca Street 


SLAOE POINT 


Qld 4740 


TAfiVIN 


Digby 


PO Box 498 


RANDVICK 


NSV 2031 


UNSWORTH 


Rob 


20 Salisbury Road 


IPSWICH 


QLD 4305 


VAGNITZ 


Ken 


2 Oepindo Avenue 


EDEN HILLS 


SA 5050 


WALTERS 


Paddie 


Ercidoune Road 


BURRUHBEET 


Vic 3352 -Vhitestone" 


HAALAND 


Hike 


4341 Gannet Cir #174 LAS VEGAS 


U.S.A. NV 89103 


OBLAK 


Gerd 


58 Elizabeth Parade 


LANE COVE 


NS-V 2066 


Total Heibers 


51 









t^il^i*i!?l?Jfii»J*iJ! 



